ActiveCell.Characters(Start:=4,Length:=1).Font.Superscript = True 